COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	FUNCTION HARM
C00003 ENDMK
C⊗;
FUNCTION HARM;
BEGIN 
VARIABLE X;
IF P8=0 THEN BEGIN  
IF P3=C THEN X←E/2;
IF P3=D THEN X←F/2;
IF P3=E THEN X←G/2;
IF P3=F THEN X←A/2;
IF P3=G THEN X←D;
IF P3=A THEN X←C;  
IF P3=B/2 THEN X←F/2;  PRINT P3,X;
END  ELSE BEGIN P3←X; END;
PRINT P3;END;